home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SCREEN.SWG / 0015_TEXTMODE.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  676b  |  23 lines
  1. {
  2.  A small follow-up to the VGA tricks:
  3.  how about a 40x12 Textmode (posted earlier in the Assembler conference):
  4. }
  5.  
  6. Procedure Set12x40; Assembler;
  7. Asm
  8.   MOV     AX, 1
  9.   inT     $10            { activate 40x25 Text With BIOS }
  10.   MOV     DX, $03D4      { CrtC }
  11.   MOV     AL, 9          { maximum scan line register }
  12.   OUT     DX, AL
  13.   inC     DX
  14.   in      AL, DX
  15.   or      AL, $80        { Double each scan-line   bit7 = 1 }
  16.   OUT     DX, AL
  17.   MOV     AX, $0040      { set up BIOS data area access }
  18.   MOV     ES, AX
  19.   MOV     AL, $0B        { BIOS txtlines on 12 = $B +1 }
  20.   MOV     ES:[$0084], AL { so Programs like QEDIT will work With this }
  21. end;
  22.  
  23.